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Improved snap prodr am* 

Try the followind listind for s snap routene. I worked out 3 similar 
prodram on the Apple computer to try it out as my Belly was temporsrly out of* 
order . This subroutene tsKes 3 snae of' s 15 by 15 pixtel area* It uses 30 bates 
of memory* The other method would use 450 bates of' memory* 

It works by making each str ins store the condition of 15 pixtels. Each 
pixtel is respresented as 2 raised to the power from 0 to 14* Example* a line 
with pixtel 1*3* and 15 would contain a string number made up of the sum of l*4r 
and 16384* The number 32767 would mean that all 15 pixtel were desplsyed. Many 
computers will make a byte Keep track of the condition of several pixtels in a 
hires color desplay* Apple uses this setup to conserve memory in Hires 
desplays* Some endineerind computers use each byte to keep track of one pixtel* 
Such computers can desplay all the 255 colors at once* However* they use far 
mor-y memory as a hires buffer then most microcomputers can handle* 

It is possible to let one strind location to contain the pixtel information 
of a entire screen* However* the prodram needed to decode the number would be 
ouite larde* 

If the subrou tones are written in assembly code* you would then have a true 
snap command* the present routenes are suite slow even on an Apple* 
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10 REH LOAD SPRITE SUB. USES 30 BYTES MEMORY FOR A 15 BY 15 PIXTEL SCREEN 
15 FOR Y = A TO B?U = IfZ = Z + 1 i FOR X = C TO Dr IF PX(X»Y)e<Z> = 7 ) + W 

20 IF U < 16384W = U * 2 
30 NEXT X? NEXT Y ? RETURN 

50 REM DESPLAY SPRITE ? DON'T FORGET TO RESET Z 

55 FOR Y = A TO BSW = 16384?Z = Z + 1? FOR X = D TO C STEP ~ U IF GK Z > - W > 
-• 1 BOXX ? Y ? 1 ? 1 9 1 

60 W = W / 29 NEXT X? NEXT Y 5 RETURN 

61 REM D-C MUST=15. B-A CAN = 15 OR ANY OTHER POSITIVE VALUE 

62 REM YOU CAN LEAVE THE . OR REM STATEMENTS OUT OF THE PROGRAM 
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